home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / icon tools / addinfo / install addinfo < prev    next >
Text File  |  1996-04-07  |  2KB  |  110 lines

  1. ; Installation script for AddInfo
  2.  
  3. (transcript "Installing AddInfo...")
  4.  
  5. (copylib
  6.         (prompt "Install WhatIs library.")
  7.         (help @copylib-help)
  8.         (source "whatis/whatis.library")
  9.         (dest "libs:")
  10.         (confirm)
  11. )
  12.  
  13. ( if (= (exists "LIBS:ReqTools.library" (noreq)) 0)
  14.     (message "You need to get a copy of ReqTools.library\n"
  15.          "and copy it to your libs: directory")
  16. )
  17.  
  18. (set name
  19.         (askdir
  20.                 (prompt "Install AddInfo where?")
  21.                 (help @askdir-help)
  22.                 (default "SYS:Utilities")
  23.         )
  24. )
  25.  
  26. (copyfiles
  27.         (source "AddInfo")
  28.         (infos)
  29.         (dest name)
  30. )
  31.  
  32. (set prefsdest
  33.         (askdir
  34.                 (prompt "Install AddInfo Prefs where?")
  35.                 (help @askdir-help)
  36.                 (default "SYS:Prefs")
  37.         )
  38. )
  39.  
  40. (copyfiles
  41.     (source "AddInfoPrefs")
  42.     (dest prefsdest)
  43.     (infos)
  44. )
  45.  
  46. (set prefs
  47.         (askchoice
  48.                 (prompt "Install default config where?")
  49.                 (help @askchoice-help)
  50.                 (choices "ENV: and ENVARC:" "S" )
  51.                 (default 0)
  52.         )
  53. )
  54.  
  55. (if (= prefs 0)                           ; conditional test
  56.     (
  57.        (copyfiles
  58.                 (source "AddInfo.prefs")
  59.                 (dest "ENV:")
  60.         )
  61.        (copyfiles
  62.                 (source "AddInfo.prefs")
  63.                 (dest "ENVARC:")
  64.         )
  65.     )
  66.    (copyfiles
  67.             (source "AddInfo.prefs")
  68.             (dest "S:")
  69.     )
  70. )                                     ; end of if
  71.  
  72. (set what
  73.         (askbool
  74.                 (prompt "Copy FileTypes to S:")
  75.                 (help "It's up to YOU.")
  76.                 (choices "Yes" "No")
  77.                 (default 0)
  78.         )
  79. )
  80.  
  81. (if (= what 1)                           ; conditional test
  82.    (copyfiles
  83.             (source "FileTypes")
  84.             (dest "S:")
  85.     )
  86. )
  87.  
  88. (set locale
  89.         (askoptions
  90.             (prompt "Install which language?")
  91.             (help  @askoptions-help)
  92.             (choices "English"
  93.                      "Norsk"
  94.                      )
  95.             (default 1)
  96.         )
  97. )
  98.  
  99. (if (IN locale 1)
  100.     (copyfiles
  101.             (source "catalogs/Norsk/addinfo.catalog")
  102.             (dest "Locale:Catalogs/Norsk")
  103.     )
  104. )
  105.  
  106. (set @default-dest name)
  107.  
  108. (exit)
  109.  
  110.